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$! 

$ ! MAKEROOT - Make additional system directories for cluster common 
. ; system disks. 

$ | Pl = Name of directory to oake (with or without press 

; } P2 = SCSNODE and SCSSYSTEMID in the format NODE:ID pty 3208) 

$ SAY = ‘WRITE SYSSOUTPUT’’ 

$ ASK = “INQUIRE /NOPUNCT" 

$ F_LOG = ‘’/LOG 

$ DEFAULT_PFSIZE = 40 

4 arr! SWAPSIZE = 4096 

$ $d = VSSSYSDEVICE: 

$ IF FSTRNLNAC''SYSSSPECIFIC’') EQS. FSTRNLNM(’’SYSSCOMMON'') THEN GOTO NOTCDISK 
$ If PSGE TSVI C'VAXCLUSTER ) .€0. 0 THEN GOTO NOTCLUSTER 

$ ROOT = P 

$6ET_ROOT: 

$ IF ROOT .NES. ‘"* THEN GOTO CHECK_ROOT 

$ ASK ROOT ‘What is the name of thé new system root? "’ 

$ GOTO GET_ROOT 

$GET_ROOT1: 

$ ROOT = ‘"’ 

$ GOTO GET_ROOT 

SCHECK_ROOT: 

$ ROOT = R ' as “= * " e '" , =. “Sr 

$ ROOT = FeeDIT (ROOT, "COLL, LAPSE UPCASE**) 

$ IF ROOT “chee F STRNLNM( SYS Fopsys *) THEN GOTO RUNNINGROOT 

$! Syntez heck the root, and see if it O GET hoot existe 

$ IF FSE ROOT) . rah syst THEN gord GET 

$ IF FSLEN ae =NE THEN GOTO GET_R 

$Tl=F SExT 

S$ IF (T1 vf age he. (T1 .LES. *'9°"") THEN GOTO CKRI0 

Le PFS: et OR. (T1 .GTS. *D’') THEN GOTO GET_ROOT1 

$ IF FSPARSE(""**SD° [0000003" *ROOT’ . DIR’) .EQS. mt THEN GOTO GET_ROOT1 
$ IF FSSEARCH('’*SD' £0000003' *rooT’ .DIR’) »NES. ‘"' THEN GOTO ROOTXIST 
SGE TNEWPARAMS : 

$ SCSNODE = a 

$ SCSSYSTEMI . 

$ IF P2 .EQS. oneneut GO70, GETS NODE 

$ SCSNODE = FSELEMENT( 

$ SCSSYSTEMID = = ESELEMENTOI. **3°* P2) 

SGET_NODE: 

$ IF SCSNODE .NES. ‘"* THEN GOTO CHECK_NODE z 

$ ASK SCSNODE "What is the nodename of the new node (SCSNODE)? 

$ GOTO GET _NODE 

BCHE CK NODE : 

$Ti= 7F SLENGTH( SCSNODE? a 

$ IF Tt .GT. SCSNODE = 

care ue ‘GT. THEN GOTO GET_NODE 

$ IF SCSSYSTEMID .NES. °"’ THEN GOTO CHECK_ID = 

$ ASK SCSSYSTEMID ‘What is the SCS System id of the new node? 

$ GOTO GET_ID 

SCH Ck 10: 

$ Tl = FSINTEGER(SCSSYSTEMID) 

$ IF T1 .EQ@. 0 THEN SCSSYSTEMID = 

$ IF T1 .EQ. 0 THEN GOTO GET_ID 

SGET_PFSiZE: re 
$ ASR PFSIZE ‘Size of h2getite for the new root C**DEFAULT_PFSIZE’ blocks)? 
$ If PFSIZE .EQS. THEN PFSIZE = DEFAULT_PFSIZE 

$ Tl = td he a beh fH 

$ IF T1 .€Q@. 0 THEN GOTO GET_PFSIZE 


SD 


Mm 5 


the new root C''DEFAULT_SWAPSIZE' blocks]? "’ 
= DEFAULT_SWAPSIZE 


Sad 


ating dire 
SCREATE »/ PAR 


+ Agr + 

SEARCH(" *$D'L0.0 
SEARCH('"' *SDROOT'S 
SEARCH(™* » SDROOT?S 
I 


oor: 
WN=C1, 4)" 7éROT= (S=RWE ,O=RWE,G=RE,W=RE) 'SD'C''ROOT'"’ 


OOT'.DIR'') .EQS. ‘eee "CD'] iMake the root directory 
DIR") .EQS. ‘"' THEN 'CD*.SYSEXE 
DIR’) .EQS. '"’ THEN 'CD*.SYSLIB 


ON LF OMMON. DIR: "F_LOG' 
DIR") .EQS. ' THEA ' i § 


Sd 


T FILE /ENTER="SDROO 
_ SYSSSPEC 
SEARCH('"* *SDROOT'S 
SEARCH('* *SDROOT ' SY 
RCH('" *SDROOT'SYS 


PAAPRAAPAAAGHA PHHEKAHHEFRKEOHONS 
PAH NMS 
4] 


Y ne 


FS 
AY ‘“ZUPGRADE-1-CRE EATED, 8 tem root ‘'ROOT' ey 
AY ‘“LUPGRADE-]1 1-CREPAGESWA 
SDROOT = SDR 
syseen = ReySCEN" - sa 
IF FSSEARCH('** *SDROOT’ .SYSEXEJPAGEFILE.SYS'') .EQS. ‘"' THEN GOTO CP10 
I FSFILE(’ *SDROOT* .SYSEXE JPAGEF ILE. Sys", *"ALQ™) -GE. PFSIZE THEN GOTO CP20 


GEN CREATE ‘SDROOT’ .SYSEXEJPAGEFILE.SYS/SIZE="PFSIZE' 


FSSEARCH(*" *SDROOT* . SYSEXEJSWAPFILE. SYS*") .£QS. °"’ THEN GOTO CP30 
FSFILE(’" *SDROOT" .SYSEXEJSWAPF ILE. SYS","ALQ™) .GE. SWAPSIZE THEN GOTO CP40 


GEN CREATE ‘SDROOT’ .SYSEXEJSWAPFILE.SYS/SIZE="SWAPSIZE‘ 
/WRITE F1 *SDROOT* .SYSEXEJMODPARAMS .DAT 
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1 vi Site specific AUTOGEN data file. In a VAXcluster where a common orntee” 
1 vet disk is being used, this file should reside in SYSSSPECIFIC: CSYSEXE),' 

; sages not a common system directory.” 

1 "i add modifications that you wish to make to AUTOGEN's hardware configuration" 
: "i data, system parameter calculations, and page, swap, and dump file sizes to 
1 
1 
1 
1 
S$C 


~K the bottom of this file. 


“PAGEFILE=""PFSIZE"" 
*“SWAPFILE=""*SWAPSIZE'"' 


$SCOMMON DAION: CSYSHGR IVS IRASES DAT ‘SD*C*ROOT’.SYSMGR) 
I YSSSCRATCH:MAKEROOT. TMP 

UN SYSSSYSTER: SYSGEN" 
ani 

SNOD emete *SCSNO! 
SSYSTEMID + CSSYSTEMID'” es 
**SDROOT® .SYSEXEJVAXVMSSYS.PAR 
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Now you must build console media for the new system. This 
can be done in the following manner: 


First create a scratch directory and SET DEFAULT to it. 


Invoke SISSUepATE: DXCOPY.COM. When it asks ‘Copy from console 
medium (Y/ . answer YES. When prompted for the files to copy, 
answer sta. “DXCOPY will copy all the files from the current 
system console to the scratch directory. 


Edit DEFBOO.CMD, and adjust the value deposited 19 RS to sentee 
the root name in the high 4 bits. For example, you Aust 
creates root SYS5S, then you must deposit the slags 00000 into 


Then, DISMOUNT CSA1, and insert a scratch console megia. 

Re- invoke SYSSUPDATE :DXCOPY.COM, and answer NO to "Copy from 
console medium (Y/N)?°'. When prompted for the (ist on files + 
copy, answer *,*, DxCOPY will og all the files from the scra 
directory to the console. After DXCOPY completes, DISMOUNT cone 
and take the meda to you new system. 


You must now boot the target node into the newly-created root. 
Use a conversational gl ty | as you must change the startup 
command procedure. Use the SY BOOT commands: 
SET Aly SYSSSYSTEM: STARTUP. COM 
SET STARTUP_P1 ‘MIN’ 
CONTINUE 
Then, after the system has booted, lugin and invoke AUTOGEN: 
@SYSSUPDATE:AUTOGEN GETDATA REBOOT 


$ EX is . 

SROOTX 

$ SAY JUPGRADE-E-ROOTEXISTS, Root ''ROOT’ already exists.” 

$ ASK YN ‘Do OM want to cont inue va? * 

$ IF -EQ HEN YN = ‘‘y' 

; if Da THEN GOTO CLEANUP. ROOT 

SCLEANUP_ROOT: 

$ SDROOT"= SD + “'C'' + ROOT rn 

$ IF FSSEARCH('™ *SDROOT" .SYSEX prooens DAT’) NES. THEN = 
DELETE *SDROOT® .SYSEX ARAMS .DAT; * te 

$ IF FSSEARCH(’’* *SDROOT 11 ZSYSEREIVAKMGSYSPA = PAR ) NES. THEN = 

LETE *SDROOT’. ;5YS AXVMSSYS 


$ IF FSSEARCHC™ *SpROOT' SYEMGRIVASIAAGES,D pai) wNES. '"* THEN = 
ROOT * .SYSMGRIVMS IMAGES .DA oe 
$ IF FSSEARCHC'™ *SD'E* *RODT* ISYSCOMMON. DIR). “NES. "THEN = 
ET FILE /REMOVE ‘SDROOT' SYSCOMMON. DIR; 
$ DEFAULT PFSIZE = a 
SSDROOT! .SYSEXEIPAGEFILE. SYS") .N 


$ IF FSSERRCH( Saad Kae 
tte) FSIZE = FSFILEC’" *SDROOT’ . SYSEXE PAGEF ILE. SYS", AtLQ**) 

$ DEFAUL T'S SIZE = ‘ all 
$ TF FSSEARCH(* *SDROOT® .SYSEX KEJSMAPEILE SYS") NES. "THEN =, 

DEFAULT | SWAPSIZE = FSFILEC'* ‘SDROOT* . SYSEXE JSWAPF ILE. SYS", "ALO" 
$ GOTO GE TNEWPARAMS 
$RUNNINGROOT : ” 
: SAY , SUPGRADE=E-RUMNING, **ROOT' is the root of the currently running system 
SNOTCDISK: 
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$ 
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$ 
$ 
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$ 
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$ 
$ 


SAY 
EXIT 
NOTCL 
1 


USTER: 
: ie MR UPGRADE-E-NOTCLUSTER, This node is not booted with VAXCLUSTER NE 0"’ 
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$ 
$ 
$ 
$ 
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6 
; AY_"KUPGRADE-E-NOTCDISK, This system disk is not set up as a a a a system disk.”’ 
$ 
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